home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0065_Cursor On-Off.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  341 b   |  26 lines
  1. UNIT CCursor;
  2.  
  3. INTERFACE
  4.  
  5. CONST
  6.    HideCursor: Word = $2607;
  7.    NormCursor: Word = $0506;
  8.    HalfCursor: Word = $0306;
  9.    BlockCursor: Word = $0006;
  10.  
  11. PROCEDURE ChangeCursor(Curs: Word);
  12.  
  13. IMPLEMENTATION
  14.  
  15. PROCEDURE ChangeCursor(Curs: Word); Assembler;
  16.  
  17. ASM
  18.    MOV Ax,$0100
  19.    MOV Cx,Curs
  20.    INT $10
  21. END;
  22.  
  23.  
  24. BEGIN
  25. END.
  26.